/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / modes / enriched.elc.z / enriched.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 30 3a 35 32 20 31 | 39 39 38 0a 3b 3b 3b 20 |:50:52 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 6d 6f 64 65 |s-20.3/l|isp/mode|
|000000a0| 73 2f 65 6e 72 69 63 68 | 65 64 2e 65 6c 0a 3b 3b |s/enrich|ed.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 65 6e 72 69 63 |  (error| "`enric|
|000001f0| 68 65 64 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |hed.el' |was comp|
|00000200| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 32 |iled for| Emacs 2|
|00000210| 30 22 29 29 0a 0a 28 6f | 72 20 28 62 6f 75 6e 64 |0"))..(o|r (bound|
|00000220| 70 20 27 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |p 'curre|nt-load-|
|00000230| 6c 69 73 74 29 20 28 73 | 65 74 71 20 63 75 72 72 |list) (s|etq curr|
|00000240| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 6e 69 |ent-load|-list ni|
|00000250| 6c 29 29 0a 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |l))...(b|yte-code|
|00000260| 20 22 c0 c1 21 88 c2 c1 | c3 c4 c5 c6 25 87 22 20 | "..!...|....%." |
|00000270| 5b 70 72 6f 76 69 64 65 | 20 65 6e 72 69 63 68 65 |[provide| enriche|
|00000280| 64 20 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |d custom|-declare|
|00000290| 2d 67 72 6f 75 70 20 6e | 69 6c 20 22 52 65 61 64 |-group n|il "Read|
|000002a0| 20 61 6e 64 20 73 61 76 | 65 20 66 69 6c 65 73 20 | and sav|e files |
|000002b0| 69 6e 20 74 65 78 74 2f | 65 6e 72 69 63 68 65 64 |in text/|enriched|
|000002c0| 20 66 6f 72 6d 61 74 22 | 20 3a 67 72 6f 75 70 20 | format"| :group |
|000002d0| 77 70 5d 20 36 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |wp] 6).(|custom-d|
|000002e0| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|000002f0| 27 65 6e 72 69 63 68 65 | 64 2d 76 65 72 62 6f 73 |'enriche|d-verbos|
|00000300| 65 20 27 74 20 22 2a 49 | 66 20 6e 6f 6e 2d 6e 69 |e 't "*I|f non-ni|
|00000310| 6c 2c 20 67 69 76 65 20 | 73 74 61 74 75 73 20 6d |l, give |status m|
|00000320| 65 73 73 61 67 65 73 20 | 77 68 65 6e 20 72 65 61 |essages |when rea|
|00000330| 64 69 6e 67 20 61 6e 64 | 20 77 72 69 74 69 6e 67 |ding and| writing|
|00000340| 20 66 69 6c 65 73 2e 22 | 20 3a 74 79 70 65 20 27 | files."| :type '|
|00000350| 62 6f 6f 6c 65 61 6e 20 | 3a 67 72 6f 75 70 20 27 |boolean |:group '|
|00000360| 65 6e 72 69 63 68 65 64 | 29 0a 28 62 79 74 65 2d |enriched|).(byte-|
|00000370| 63 6f 64 65 20 22 c0 c1 | c2 c3 c4 c5 25 88 c0 c6 |code "..|....%...|
|00000380| c7 c8 c4 c5 25 88 c9 20 | 16 5c 6e ca 0e 0b 42 16 |....%.. |.\n...B.|
|00000390| 0b 0e 5c 6e cc cd ce 20 | 53 cf 5c 22 49 87 22 20 |..\n... |S.\"I." |
|000003a0| 5b 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |[custom-|declare-|
|000003b0| 66 61 63 65 20 66 69 78 | 65 64 20 28 28 74 20 28 |face fix|ed ((t (|
|000003c0| 3a 62 6f 6c 64 20 74 29 | 29 29 20 22 46 61 63 65 |:bold t)|)) "Face|
|000003d0| 20 75 73 65 64 20 66 6f | 72 20 74 65 78 74 20 74 | used fo|r text t|
|000003e0| 68 61 74 20 6d 75 73 74 | 20 62 65 20 73 68 6f 77 |hat must| be show|
|000003f0| 6e 20 69 6e 20 66 69 78 | 65 64 20 77 69 64 74 68 |n in fix|ed width|
|00000400| 2e 5c 6e 43 75 72 72 65 | 6e 74 6c 79 2c 20 65 6d |.\nCurre|ntly, em|
|00000410| 61 63 73 20 63 61 6e 20 | 6f 6e 6c 79 20 64 69 73 |acs can |only dis|
|00000420| 70 6c 61 79 20 66 69 78 | 65 64 2d 77 69 64 74 68 |play fix|ed-width|
|00000430| 20 66 6f 6e 74 73 2c 20 | 62 75 74 20 74 68 69 73 | fonts, |but this|
|00000440| 20 6d 61 79 20 63 68 61 | 6e 67 65 2e 5c 6e 54 68 | may cha|nge.\nTh|
|00000450| 69 73 20 66 61 63 65 20 | 69 73 20 75 73 65 64 20 |is face |is used |
|00000460| 66 6f 72 20 74 65 78 74 | 20 73 70 65 63 69 66 69 |for text| specifi|
|00000470| 63 61 6c 6c 79 20 6d 61 | 72 6b 65 64 20 61 73 20 |cally ma|rked as |
|00000480| 66 69 78 65 64 2d 77 69 | 64 74 68 2c 20 66 6f 72 |fixed-wi|dth, for|
|00000490| 20 65 78 61 6d 70 6c 65 | 5c 6e 69 6e 20 74 65 78 | example|\nin tex|
|000004a0| 74 2f 65 6e 72 69 63 68 | 65 64 20 66 69 6c 65 73 |t/enrich|ed files|
|000004b0| 2e 22 20 3a 67 72 6f 75 | 70 20 65 6e 72 69 63 68 |." :grou|p enrich|
|000004c0| 65 64 20 65 78 63 65 72 | 70 74 20 28 28 74 20 28 |ed excer|pt ((t (|
|000004d0| 3a 69 74 61 6c 69 63 20 | 74 29 29 29 20 22 46 61 |:italic |t))) "Fa|
|000004e0| 63 65 20 75 73 65 64 20 | 66 6f 72 20 74 65 78 74 |ce used |for text|
|000004f0| 20 74 68 61 74 20 69 73 | 20 61 6e 20 65 78 63 65 | that is| an exce|
|00000500| 72 70 74 20 66 72 6f 6d | 20 61 6e 6f 74 68 65 72 |rpt from| another|
|00000510| 20 64 6f 63 75 6d 65 6e | 74 2e 5c 6e 54 68 69 73 | documen|t.\nThis|
|00000520| 20 69 73 20 75 73 65 64 | 20 69 6e 20 65 6e 72 69 | is used| in enri|
|00000530| 63 68 65 64 2d 6d 6f 64 | 65 20 66 6f 72 20 74 65 |ched-mod|e for te|
|00000540| 78 74 20 65 78 70 6c 69 | 63 69 74 6c 79 20 6d 61 |xt expli|citly ma|
|00000550| 72 6b 65 64 20 61 73 20 | 61 6e 20 65 78 63 65 72 |rked as |an excer|
|00000560| 70 74 2e 22 20 6d 61 6b | 65 2d 64 69 73 70 6c 61 |pt." mak|e-displa|
|00000570| 79 2d 74 61 62 6c 65 20 | 65 6e 72 69 63 68 65 64 |y-table |enriched|
|00000580| 2d 64 69 73 70 6c 61 79 | 2d 74 61 62 6c 65 20 63 |-display|-table c|
|00000590| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|000005a0| 20 3f 5c 5e 4c 20 6d 61 | 6b 65 2d 76 65 63 74 6f | ?\^L ma|ke-vecto|
|000005b0| 72 20 66 72 61 6d 65 2d | 77 69 64 74 68 20 3f 5c |r frame-|width ?\|
|000005c0| 2d 5d 20 36 29 0a 23 40 | 31 32 30 20 54 65 78 74 |-] 6).#@|120 Text|
|000005d0| 2d 70 72 6f 70 65 72 74 | 69 65 73 20 74 68 61 74 |-propert|ies that|
|000005e0| 20 75 73 75 61 6c 6c 79 | 20 61 70 70 6c 79 20 74 | usually| apply t|
|000005f0| 6f 20 77 68 6f 6c 65 20 | 70 61 72 61 67 72 61 70 |o whole |paragrap|
|00000600| 68 73 2e 0a 54 68 65 73 | 65 20 61 72 65 20 73 65 |hs..Thes|e are se|
|00000610| 74 20 66 72 6f 6e 74 2d | 73 74 69 63 6b 79 20 65 |t front-|sticky e|
|00000620| 76 65 72 79 77 68 65 72 | 65 20 65 78 63 65 70 74 |verywher|e except|
|00000630| 20 61 74 20 68 61 72 64 | 20 6e 65 77 6c 69 6e 65 | at hard| newline|
|00000640| 73 2e 1f 0a 28 64 65 66 | 63 6f 6e 73 74 20 65 6e |s...(def|const en|
|00000650| 72 69 63 68 65 64 2d 70 | 61 72 2d 70 72 6f 70 73 |riched-p|ar-props|
|00000660| 20 27 28 6c 65 66 74 2d | 6d 61 72 67 69 6e 20 72 | '(left-|margin r|
|00000670| 69 67 68 74 2d 6d 61 72 | 67 69 6e 20 6a 75 73 74 |ight-mar|gin just|
|00000680| 69 66 69 63 61 74 69 6f | 6e 29 20 28 23 24 20 2e |ificatio|n) (#$ .|
|00000690| 20 31 34 38 34 29 29 0a | 23 40 31 39 31 20 57 68 | 1484)).|#@191 Wh|
|000006a0| 61 74 20 74 6f 20 69 6e | 73 65 72 74 20 61 74 20 |at to in|sert at |
|000006b0| 74 68 65 20 73 74 61 72 | 74 20 6f 66 20 61 20 74 |the star|t of a t|
|000006c0| 65 78 74 2f 65 6e 72 69 | 63 68 65 64 20 66 69 6c |ext/enri|ched fil|
|000006d0| 65 2e 0a 49 66 20 74 68 | 69 73 20 69 73 20 61 20 |e..If th|is is a |
|000006e0| 73 74 72 69 6e 67 2c 20 | 69 74 20 69 73 20 69 6e |string, |it is in|
|000006f0| 73 65 72 74 65 64 2e 20 | 20 49 66 20 69 74 20 69 |serted. | If it i|
|00000700| 73 20 61 20 6c 69 73 74 | 2c 20 69 74 20 73 68 6f |s a list|, it sho|
|00000710| 75 6c 64 20 62 65 20 61 | 20 6c 61 6d 62 64 61 0a |uld be a| lambda.|
|00000720| 65 78 70 72 65 73 73 69 | 6f 6e 2c 20 77 68 69 63 |expressi|on, whic|
|00000730| 68 20 69 73 20 65 76 61 | 6c 75 61 74 65 64 20 74 |h is eva|luated t|
|00000740| 6f 20 67 65 74 20 74 68 | 65 20 73 74 72 69 6e 67 |o get th|e string|
|00000750| 20 74 6f 20 69 6e 73 65 | 72 74 2e 1f 0a 28 64 65 | to inse|rt...(de|
|00000760| 66 63 6f 6e 73 74 20 65 | 6e 72 69 63 68 65 64 2d |fconst e|nriched-|
|00000770| 69 6e 69 74 69 61 6c 2d | 61 6e 6e 6f 74 61 74 69 |initial-|annotati|
|00000780| 6f 6e 20 23 5b 6e 69 6c | 20 22 c0 c1 5c 6e 5c 22 |on #[nil| "..\n\"|
|00000790| 87 22 20 5b 66 6f 72 6d | 61 74 20 22 43 6f 6e 74 |." [form|at "Cont|
|000007a0| 65 6e 74 2d 54 79 70 65 | 3a 20 74 65 78 74 2f 65 |ent-Type|: text/e|
|000007b0| 6e 72 69 63 68 65 64 5c | 6e 54 65 78 74 2d 57 69 |nriched\|nText-Wi|
|000007c0| 64 74 68 3a 20 25 64 5c | 6e 5c 6e 22 20 66 69 6c |dth: %d\|n\n" fil|
|000007d0| 6c 2d 63 6f 6c 75 6d 6e | 5d 20 33 5d 20 28 23 24 |l-column|] 3] (#$|
|000007e0| 20 2e 20 31 36 39 34 29 | 29 0a 23 40 34 36 20 47 | . 1694)|).#@46 G|
|000007f0| 65 6e 65 72 61 6c 20 66 | 6f 72 6d 61 74 20 6f 66 |eneral f|ormat of|
|00000800| 20 65 6e 72 69 63 68 65 | 64 2d 74 65 78 74 20 61 | enriche|d-text a|
|00000810| 6e 6e 6f 74 61 74 69 6f | 6e 73 2e 1f 0a 28 64 65 |nnotatio|ns...(de|
|00000820| 66 63 6f 6e 73 74 20 65 | 6e 72 69 63 68 65 64 2d |fconst e|nriched-|
|00000830| 61 6e 6e 6f 74 61 74 69 | 6f 6e 2d 66 6f 72 6d 61 |annotati|on-forma|
|00000840| 74 20 22 3c 25 73 25 73 | 3e 22 20 28 23 24 20 2e |t "<%s%s|>" (#$ .|
|00000850| 20 32 30 33 31 29 29 0a | 23 40 35 36 20 52 65 67 | 2031)).|#@56 Reg|
|00000860| 75 6c 61 72 20 65 78 70 | 72 65 73 73 69 6f 6e 20 |ular exp|ression |
|00000870| 6d 61 74 63 68 69 6e 67 | 20 65 6e 72 69 63 68 65 |matching| enriche|
|00000880| 64 2d 74 65 78 74 20 61 | 6e 6e 6f 74 61 74 69 6f |d-text a|nnotatio|
|00000890| 6e 73 2e 1f 0a 28 64 65 | 66 63 6f 6e 73 74 20 65 |ns...(de|fconst e|
|000008a0| 6e 72 69 63 68 65 64 2d | 61 6e 6e 6f 74 61 74 69 |nriched-|annotati|
|000008b0| 6f 6e 2d 72 65 67 65 78 | 70 20 22 3c 5c 5c 28 2f |on-regex|p "<\\(/|
|000008c0| 5c 5c 29 3f 5c 5c 28 5b | 2d 41 2d 7a 61 2d 7a 30 |\\)?\\([|-A-za-z0|
|000008d0| 2d 39 5d 2b 5c 5c 29 3e | 22 20 28 23 24 20 2e 20 |-9]+\\)>|" (#$ . |
|000008e0| 32 31 34 31 29 29 0a 23 | 40 31 34 39 20 4c 69 73 |2141)).#|@149 Lis|
|000008f0| 74 20 6f 66 20 64 65 66 | 69 6e 69 74 69 6f 6e 73 |t of def|initions|
|00000900| 20 6f 66 20 74 65 78 74 | 2f 65 6e 72 69 63 68 65 | of text|/enriche|
|00000910| 64 20 61 6e 6e 6f 74 61 | 74 69 6f 6e 73 2e 0a 53 |d annota|tions..S|
|00000920| 65 65 20 60 66 6f 72 6d | 61 74 2d 61 6e 6e 6f 74 |ee `form|at-annot|
|00000930| 61 74 65 2d 72 65 67 69 | 6f 6e 27 20 61 6e 64 20 |ate-regi|on' and |
|00000940| 60 66 6f 72 6d 61 74 2d | 64 65 61 6e 6e 6f 74 61 |`format-|deannota|
|00000950| 74 65 2d 72 65 67 69 6f | 6e 27 20 66 6f 72 20 74 |te-regio|n' for t|
|00000960| 68 65 20 64 65 66 69 6e | 69 74 69 6f 6e 0a 6f 66 |he defin|ition.of|
|00000970| 20 74 68 69 73 20 73 74 | 72 75 63 74 75 72 65 2e | this st|ructure.|
|00000980| 1f 0a 28 64 65 66 63 6f | 6e 73 74 20 65 6e 72 69 |..(defco|nst enri|
|00000990| 63 68 65 64 2d 74 72 61 | 6e 73 6c 61 74 69 6f 6e |ched-tra|nslation|
|000009a0| 73 20 27 28 28 66 61 63 | 65 20 28 62 6f 6c 64 2d |s '((fac|e (bold-|
|000009b0| 69 74 61 6c 69 63 20 22 | 62 6f 6c 64 22 20 22 69 |italic "|bold" "i|
|000009c0| 74 61 6c 69 63 22 29 20 | 28 62 6f 6c 64 20 22 62 |talic") |(bold "b|
|000009d0| 6f 6c 64 22 29 20 28 69 | 74 61 6c 69 63 20 22 69 |old") (i|talic "i|
|000009e0| 74 61 6c 69 63 22 29 20 | 28 75 6e 64 65 72 6c 69 |talic") |(underli|
|000009f0| 6e 65 20 22 75 6e 64 65 | 72 6c 69 6e 65 22 29 20 |ne "unde|rline") |
|00000a00| 28 66 69 78 65 64 20 22 | 66 69 78 65 64 22 29 20 |(fixed "|fixed") |
|00000a10| 28 65 78 63 65 72 70 74 | 20 22 65 78 63 65 72 70 |(excerpt| "excerp|
|00000a20| 74 22 29 20 28 64 65 66 | 61 75 6c 74 29 20 28 6e |t") (def|ault) (n|
|00000a30| 69 6c 20 65 6e 72 69 63 | 68 65 64 2d 65 6e 63 6f |il enric|hed-enco|
|00000a40| 64 65 2d 6f 74 68 65 72 | 2d 66 61 63 65 29 29 20 |de-other|-face)) |
|00000a50| 28 6c 65 66 74 2d 6d 61 | 72 67 69 6e 20 28 34 20 |(left-ma|rgin (4 |
|00000a60| 22 69 6e 64 65 6e 74 22 | 29 29 20 28 72 69 67 68 |"indent"|)) (righ|
|00000a70| 74 2d 6d 61 72 67 69 6e | 20 28 34 20 22 69 6e 64 |t-margin| (4 "ind|
|00000a80| 65 6e 74 72 69 67 68 74 | 22 29 29 20 28 6a 75 73 |entright|")) (jus|
|00000a90| 74 69 66 69 63 61 74 69 | 6f 6e 20 28 6e 6f 6e 65 |tificati|on (none|
|00000aa0| 20 22 6e 6f 66 69 6c 6c | 22 29 20 28 72 69 67 68 | "nofill|") (righ|
|00000ab0| 74 20 22 66 6c 75 73 68 | 72 69 67 68 74 22 29 20 |t "flush|right") |
|00000ac0| 28 6c 65 66 74 20 22 66 | 6c 75 73 68 6c 65 66 74 |(left "f|lushleft|
|00000ad0| 22 29 20 28 66 75 6c 6c | 20 22 66 6c 75 73 68 62 |") (full| "flushb|
|00000ae0| 6f 74 68 22 29 20 28 63 | 65 6e 74 65 72 20 22 63 |oth") (c|enter "c|
|00000af0| 65 6e 74 65 72 22 29 29 | 20 28 50 41 52 41 4d 45 |enter"))| (PARAME|
|00000b00| 54 45 52 20 28 74 20 22 | 70 61 72 61 6d 22 29 29 |TER (t "|param"))|
|00000b10| 20 28 46 55 4e 43 54 49 | 4f 4e 20 28 65 6e 72 69 | (FUNCTI|ON (enri|
|00000b20| 63 68 65 64 2d 64 65 63 | 6f 64 65 2d 66 6f 72 65 |ched-dec|ode-fore|
|00000b30| 67 72 6f 75 6e 64 20 22 | 78 2d 63 6f 6c 6f 72 22 |ground "|x-color"|
|00000b40| 29 20 28 65 6e 72 69 63 | 68 65 64 2d 64 65 63 6f |) (enric|hed-deco|
|00000b50| 64 65 2d 62 61 63 6b 67 | 72 6f 75 6e 64 20 22 78 |de-backg|round "x|
|00000b60| 2d 62 67 2d 63 6f 6c 6f | 72 22 29 20 28 66 61 63 |-bg-colo|r") (fac|
|00000b70| 65 6d 65 6e 75 2d 6d 61 | 6b 65 2d 6c 61 72 67 65 |emenu-ma|ke-large|
|00000b80| 72 20 22 62 69 67 67 65 | 72 22 29 20 28 66 61 63 |r "bigge|r") (fac|
|00000b90| 65 6d 65 6e 75 2d 6d 61 | 6b 65 2d 73 6d 61 6c 6c |emenu-ma|ke-small|
|00000ba0| 65 72 20 22 73 6d 61 6c | 6c 65 72 22 29 29 20 28 |er "smal|ler")) (|
|00000bb0| 72 65 61 64 2d 6f 6e 6c | 79 20 28 74 20 22 78 2d |read-onl|y (t "x-|
|00000bc0| 72 65 61 64 2d 6f 6e 6c | 79 22 29 29 20 28 75 6e |read-onl|y")) (un|
|00000bd0| 6b 6e 6f 77 6e 20 28 6e | 69 6c 20 66 6f 72 6d 61 |known (n|il forma|
|00000be0| 74 2d 61 6e 6e 6f 74 61 | 74 65 2d 76 61 6c 75 65 |t-annota|te-value|
|00000bf0| 29 29 29 20 28 23 24 20 | 2e 20 32 32 38 35 29 29 |))) (#$ |. 2285))|
|00000c00| 0a 23 40 31 37 36 20 50 | 72 6f 70 65 72 74 69 65 |.#@176 P|ropertie|
|00000c10| 73 20 74 68 61 74 20 61 | 72 65 20 4f 4b 20 74 6f |s that a|re OK to|
|00000c20| 20 69 67 6e 6f 72 65 20 | 77 68 65 6e 20 73 61 76 | ignore |when sav|
|00000c30| 69 6e 67 20 74 65 78 74 | 2f 65 6e 72 69 63 68 65 |ing text|/enriche|
|00000c40| 64 20 66 69 6c 65 73 2e | 0a 41 6e 79 20 70 72 6f |d files.|.Any pro|
|00000c50| 70 65 72 74 79 20 74 68 | 61 74 20 69 73 20 6e 65 |perty th|at is ne|
|00000c60| 69 74 68 65 72 20 6f 6e | 20 74 68 69 73 20 6c 69 |ither on| this li|
|00000c70| 73 74 20 6e 6f 72 20 64 | 65 61 6c 74 20 77 69 74 |st nor d|ealt wit|
|00000c80| 68 20 62 79 0a 60 65 6e | 72 69 63 68 65 64 2d 74 |h by.`en|riched-t|
|00000c90| 72 61 6e 73 6c 61 74 69 | 6f 6e 73 27 20 77 69 6c |ranslati|ons' wil|
|00000ca0| 6c 20 67 65 6e 65 72 61 | 74 65 20 61 20 77 61 72 |l genera|te a war|
|00000cb0| 6e 69 6e 67 2e 1f 0a 28 | 64 65 66 63 6f 6e 73 74 |ning...(|defconst|
|00000cc0| 20 65 6e 72 69 63 68 65 | 64 2d 69 67 6e 6f 72 65 | enriche|d-ignore|
|00000cd0| 20 27 28 66 72 6f 6e 74 | 2d 73 74 69 63 6b 79 20 | '(front|-sticky |
|00000ce0| 72 65 61 72 2d 6e 6f 6e | 73 74 69 63 6b 79 20 68 |rear-non|sticky h|
|00000cf0| 61 72 64 29 20 28 23 24 | 20 2e 20 33 30 37 39 29 |ard) (#$| . 3079)|
|00000d00| 29 0a 23 40 33 34 20 54 | 72 75 65 20 69 66 20 45 |).#@34 T|rue if E|
|00000d10| 6e 72 69 63 68 65 64 20 | 6d 6f 64 65 20 69 73 20 |nriched |mode is |
|00000d20| 69 6e 20 75 73 65 2e 1f | 0a 28 64 65 66 76 61 72 |in use..|.(defvar|
|00000d30| 20 65 6e 72 69 63 68 65 | 64 2d 6d 6f 64 65 20 6e | enriche|d-mode n|
|00000d40| 69 6c 20 28 23 24 20 2e | 20 33 33 33 35 29 29 0a |il (#$ .| 3335)).|
|00000d50| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 88 |(byte-co|de "..!.|
|00000d60| c1 5c 6e b7 ac 84 c3 5c | 6e 42 12 c0 87 22 20 5b |.\n....\|nB..." [|
|00000d70| 6d 61 6b 65 2d 76 61 72 | 69 61 62 6c 65 2d 62 75 |make-var|iable-bu|
|00000d80| 66 66 65 72 2d 6c 6f 63 | 61 6c 20 65 6e 72 69 63 |ffer-loc|al enric|
|00000d90| 68 65 64 2d 6d 6f 64 65 | 20 6d 69 6e 6f 72 2d 6d |hed-mode| minor-m|
|00000da0| 6f 64 65 2d 61 6c 69 73 | 74 20 28 65 6e 72 69 63 |ode-alis|t (enric|
|00000db0| 68 65 64 2d 6d 6f 64 65 | 20 22 20 45 6e 72 69 63 |hed-mode| " Enric|
|00000dc0| 68 65 64 22 29 5d 20 32 | 29 0a 28 63 75 73 74 6f |hed")] 2|).(custo|
|00000dd0| 6d 2d 64 65 63 6c 61 72 | 65 2d 76 61 72 69 61 62 |m-declar|e-variab|
|00000de0| 6c 65 20 27 65 6e 72 69 | 63 68 65 64 2d 6d 6f 64 |le 'enri|ched-mod|
|00000df0| 65 2d 68 6f 6f 6b 20 27 | 6e 69 6c 20 22 46 75 6e |e-hook '|nil "Fun|
|00000e00| 63 74 69 6f 6e 73 20 74 | 6f 20 72 75 6e 20 77 68 |ctions t|o run wh|
|00000e10| 65 6e 20 65 6e 74 65 72 | 69 6e 67 20 45 6e 72 69 |en enter|ing Enri|
|00000e20| 63 68 65 64 20 6d 6f 64 | 65 2e 5c 6e 49 66 20 79 |ched mod|e.\nIf y|
|00000e30| 6f 75 20 73 65 74 20 76 | 61 72 69 61 62 6c 65 73 |ou set v|ariables|
|00000e40| 20 69 6e 20 74 68 69 73 | 20 68 6f 6f 6b 2c 20 79 | in this| hook, y|
|00000e50| 6f 75 20 73 68 6f 75 6c | 64 20 61 72 72 61 6e 67 |ou shoul|d arrang|
|00000e60| 65 20 66 6f 72 20 74 68 | 65 6d 20 74 6f 20 62 65 |e for th|em to be|
|00000e70| 20 72 65 73 74 6f 72 65 | 64 5c 6e 74 6f 20 74 68 | restore|d\nto th|
|00000e80| 65 69 72 20 6f 6c 64 20 | 76 61 6c 75 65 73 20 69 |eir old |values i|
|00000e90| 66 20 79 6f 75 20 6c 65 | 61 76 65 20 45 6e 72 69 |f you le|ave Enri|
|00000ea0| 63 68 65 64 20 6d 6f 64 | 65 2e 20 20 4f 6e 65 20 |ched mod|e.  One |
|00000eb0| 77 61 79 20 74 6f 20 64 | 6f 20 74 68 69 73 20 69 |way to d|o this i|
|00000ec0| 73 20 74 6f 20 61 64 64 | 5c 6e 74 68 65 6d 20 61 |s to add|\nthem a|
|00000ed0| 6e 64 20 74 68 65 69 72 | 20 6f 6c 64 20 76 61 6c |nd their| old val|
|00000ee0| 75 65 73 20 74 6f 20 60 | 65 6e 72 69 63 68 65 64 |ues to `|enriched|
|00000ef0| 2d 6f 6c 64 2d 62 69 6e | 64 69 6e 67 73 27 2e 22 |-old-bin|dings'."|
|00000f00| 20 3a 74 79 70 65 20 27 | 68 6f 6f 6b 20 3a 67 72 | :type '|hook :gr|
|00000f10| 6f 75 70 20 27 65 6e 72 | 69 63 68 65 64 29 0a 23 |oup 'enr|iched).#|
|00000f20| 40 31 31 31 20 53 74 6f | 72 65 20 6f 6c 64 20 76 |@111 Sto|re old v|
|00000f30| 61 72 69 61 62 6c 65 20 | 76 61 6c 75 65 73 20 74 |ariable |values t|
|00000f40| 68 61 74 20 77 65 20 63 | 68 61 6e 67 65 20 77 68 |hat we c|hange wh|
|00000f50| 65 6e 20 65 6e 74 65 72 | 69 6e 67 20 6d 6f 64 65 |en enter|ing mode|
|00000f60| 2e 0a 54 68 65 20 76 61 | 6c 75 65 20 69 73 20 61 |..The va|lue is a|
|00000f70| 20 6c 69 73 74 20 6f 66 | 20 28 56 41 52 20 56 41 | list of| (VAR VA|
|00000f80| 4c 55 45 20 56 41 52 20 | 56 41 4c 55 45 2e 2e 2e |LUE VAR |VALUE...|
|00000f90| 29 2e 1f 0a 28 64 65 66 | 76 61 72 20 65 6e 72 69 |)...(def|var enri|
|00000fa0| 63 68 65 64 2d 6f 6c 64 | 2d 62 69 6e 64 69 6e 67 |ched-old|-binding|
|00000fb0| 73 20 6e 69 6c 20 28 23 | 24 20 2e 20 33 38 37 37 |s nil (#|$ . 3877|
|00000fc0| 29 29 0a 28 6d 61 6b 65 | 2d 76 61 72 69 61 62 6c |)).(make|-variabl|
|00000fd0| 65 2d 62 75 66 66 65 72 | 2d 6c 6f 63 61 6c 20 27 |e-buffer|-local '|
|00000fe0| 65 6e 72 69 63 68 65 64 | 2d 6f 6c 64 2d 62 69 6e |enriched|-old-bin|
|00000ff0| 64 69 6e 67 73 29 0a 23 | 40 33 36 30 20 4d 69 6e |dings).#|@360 Min|
|00001000| 6f 72 20 6d 6f 64 65 20 | 66 6f 72 20 65 64 69 74 |or mode |for edit|
|00001010| 69 6e 67 20 74 65 78 74 | 2f 65 6e 72 69 63 68 65 |ing text|/enriche|
|00001020| 64 20 66 69 6c 65 73 2e | 0a 54 68 65 73 65 20 61 |d files.|.These a|
|00001030| 72 65 20 66 69 6c 65 73 | 20 77 69 74 68 20 65 6d |re files| with em|
|00001040| 62 65 64 64 65 64 20 66 | 6f 72 6d 61 74 74 69 6e |bedded f|ormattin|
|00001050| 67 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 20 69 6e |g inform|ation in|
|00001060| 20 74 68 65 20 4d 49 4d | 45 20 73 74 61 6e 64 61 | the MIM|E standa|
|00001070| 72 64 0a 74 65 78 74 2f | 65 6e 72 69 63 68 65 64 |rd.text/|enriched|
|00001080| 20 66 6f 72 6d 61 74 2e | 0a 54 75 72 6e 69 6e 67 | format.|.Turning|
|00001090| 20 74 68 65 20 6d 6f 64 | 65 20 6f 6e 20 72 75 6e | the mod|e on run|
|000010a0| 73 20 60 65 6e 72 69 63 | 68 65 64 2d 6d 6f 64 65 |s `enric|hed-mode|
|000010b0| 2d 68 6f 6f 6b 27 2e 0a | 0a 4d 6f 72 65 20 69 6e |-hook'..|.More in|
|000010c0| 66 6f 72 6d 61 74 69 6f | 6e 20 61 62 6f 75 74 20 |formatio|n about |
|000010d0| 45 6e 72 69 63 68 65 64 | 20 6d 6f 64 65 20 69 73 |Enriched| mode is|
|000010e0| 20 61 76 61 69 6c 61 62 | 6c 65 20 69 6e 20 74 68 | availab|le in th|
|000010f0| 65 20 66 69 6c 65 20 0a | 65 74 63 2f 65 6e 72 69 |e file .|etc/enri|
|00001100| 63 68 65 64 2e 64 6f 63 | 20 20 69 6e 20 74 68 65 |ched.doc|  in the|
|00001110| 20 45 6d 61 63 73 20 64 | 69 73 74 72 69 62 75 74 | Emacs d|istribut|
|00001120| 69 6f 6e 20 64 69 72 65 | 63 74 6f 72 79 2e 0a 0a |ion dire|ctory...|
|00001130| 43 6f 6d 6d 61 6e 64 73 | 3a 0a 0a 5c 3c 65 6e 72 |Commands|:..\<enr|
|00001140| 69 63 68 65 64 2d 6d 6f | 64 65 2d 6d 61 70 3e 5c |iched-mo|de-map>\|
|00001150| 7b 65 6e 72 69 63 68 65 | 64 2d 6d 6f 64 65 2d 6d |{enriche|d-mode-m|
|00001160| 61 70 7d 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ap}..(de|falias '|
|00001170| 65 6e 72 69 63 68 65 64 | 2d 6d 6f 64 65 20 23 5b |enriched|-mode #[|
|00001180| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|00001190| 22 c0 20 19 c2 0b 21 c4 | 58 ac 86 0d ab a2 0b ac |". ...!.|X.......|
|000011a0| 9f c6 15 c7 c8 0e 09 5c | 22 16 09 0e 5c 6e ab e5 |.......\|"...\n..|
|000011b0| 0e 5c 6e 40 0e 5c 6e 41 | 40 4c 88 0e 5c 6e 41 41 |.\n@.\nA|@L..\nAA|
|000011c0| 89 16 5c 6e aa 6c 0d ac | d0 cb 15 cc c9 c8 5c 22 |..\n.l..|......\"|
|000011d0| 88 cd 0e 0d ce 0e 0e 46 | 16 5c 6e cf cd 21 88 cf |.......F|.\n..!..|
|000011e0| ce 21 88 d0 16 0d d1 d2 | c6 5c 22 88 d3 0e 0e d4 |.!......|.\".....|
|000011f0| 5c 22 0e 15 1e 16 1e 17 | 0e 16 ab 8f cc d7 0e 16 |\"......|........|
|00001200| 40 5c 22 88 0e 16 41 89 | 16 16 ac 71 0e 17 ab 89 |@\"...A.|...q....|
|00001210| d8 0e 0e d4 0e 17 23 16 | 0e 2a d9 da 21 88 db 09 |......#.|.*..!...|
|00001220| 21 88 dc 20 29 87 22 20 | 5b 62 75 66 66 65 72 2d |!.. )." |[buffer-|
|00001230| 6d 6f 64 69 66 69 65 64 | 2d 70 20 6d 6f 64 20 70 |modified|-p mod p|
|00001240| 72 65 66 69 78 2d 6e 75 | 6d 65 72 69 63 2d 76 61 |refix-nu|meric-va|
|00001250| 6c 75 65 20 61 72 67 20 | 30 20 65 6e 72 69 63 68 |lue arg |0 enrich|
|00001260| 65 64 2d 6d 6f 64 65 20 | 6e 69 6c 20 64 65 6c 71 |ed-mode |nil delq|
|00001270| 20 74 65 78 74 2f 65 6e | 72 69 63 68 65 64 20 62 | text/en|riched b|
|00001280| 75 66 66 65 72 2d 66 69 | 6c 65 2d 66 6f 72 6d 61 |uffer-fi|le-forma|
|00001290| 74 20 65 6e 72 69 63 68 | 65 64 2d 6f 6c 64 2d 62 |t enrich|ed-old-b|
|000012a0| 69 6e 64 69 6e 67 73 20 | 74 20 61 64 64 2d 74 6f |indings |t add-to|
|000012b0| 2d 6c 69 73 74 20 69 6e | 64 65 6e 74 2d 6c 69 6e |-list in|dent-lin|
|000012c0| 65 2d 66 75 6e 63 74 69 | 6f 6e 20 64 65 66 61 75 |e-functi|on defau|
|000012d0| 6c 74 2d 74 65 78 74 2d | 70 72 6f 70 65 72 74 69 |lt-text-|properti|
|000012e0| 65 73 20 6d 61 6b 65 2d | 6c 6f 63 61 6c 2d 76 61 |es make-|local-va|
|000012f0| 72 69 61 62 6c 65 20 69 | 6e 64 65 6e 74 2d 74 6f |riable i|ndent-to|
|00001300| 2d 6c 65 66 74 2d 6d 61 | 72 67 69 6e 20 75 73 65 |-left-ma|rgin use|
|00001310| 2d 68 61 72 64 2d 6e 65 | 77 6c 69 6e 65 73 20 31 |-hard-ne|wlines 1|
|00001320| 20 70 6c 69 73 74 2d 67 | 65 74 20 66 72 6f 6e 74 | plist-g|et front|
|00001330| 2d 73 74 69 63 6b 79 20 | 65 6e 72 69 63 68 65 64 |-sticky |enriched|
|00001340| 2d 70 61 72 2d 70 72 6f | 70 73 20 70 20 73 74 69 |-par-pro|ps p sti|
|00001350| 63 6b 79 20 70 6c 69 73 | 74 2d 70 75 74 20 72 75 |cky plis|t-put ru|
|00001360| 6e 2d 68 6f 6f 6b 73 20 | 65 6e 72 69 63 68 65 64 |n-hooks |enriched|
|00001370| 2d 6d 6f 64 65 2d 68 6f | 6f 6b 20 73 65 74 2d 62 |-mode-ho|ok set-b|
|00001380| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00001390| 20 72 65 64 72 61 77 2d | 6d 6f 64 65 6c 69 6e 65 | redraw-|modeline|
|000013a0| 5d 20 35 20 28 23 24 20 | 2e 20 34 30 39 33 29 20 |] 5 (#$ |. 4093) |
|000013b0| 22 50 22 5d 29 0a 23 40 | 32 37 20 4b 65 79 6d 61 |"P"]).#@|27 Keyma|
|000013c0| 70 20 66 6f 72 20 45 6e | 72 69 63 68 65 64 20 6d |p for En|riched m|
|000013d0| 6f 64 65 2e 1f 0a 28 64 | 65 66 76 61 72 20 65 6e |ode...(d|efvar en|
|000013e0| 72 69 63 68 65 64 2d 6d | 6f 64 65 2d 6d 61 70 20 |riched-m|ode-map |
|000013f0| 6e 69 6c 20 28 23 24 20 | 2e 20 35 30 35 31 29 29 |nil (#$ |. 5051))|
|00001400| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 ac 87 |.(byte-c|ode "...|
|00001410| c0 c1 20 89 10 4d 88 c2 | 0b b7 ac 86 c2 08 42 0b |.. ..M..|......B.|
|00001420| 42 13 c4 08 c5 c6 23 88 | c4 08 c7 c8 23 88 c4 08 |B.....#.|....#...|
|00001430| c9 c8 23 88 c4 08 ca cb | 23 88 c4 08 cc cd 23 88 |..#.....|#.....#.|
|00001440| c4 08 ce cf 23 88 c4 08 | d0 d1 23 88 c4 08 d2 d3 |....#...|..#.....|
|00001450| 23 87 22 20 5b 65 6e 72 | 69 63 68 65 64 2d 6d 6f |#." [enr|iched-mo|
|00001460| 64 65 2d 6d 61 70 20 6d | 61 6b 65 2d 73 70 61 72 |de-map m|ake-spar|
|00001470| 73 65 2d 6b 65 79 6d 61 | 70 20 65 6e 72 69 63 68 |se-keyma|p enrich|
|00001480| 65 64 2d 6d 6f 64 65 20 | 6d 69 6e 6f 72 2d 6d 6f |ed-mode |minor-mo|
|00001490| 64 65 2d 6d 61 70 2d 61 | 6c 69 73 74 20 64 65 66 |de-map-a|list def|
|000014a0| 69 6e 65 2d 6b 65 79 20 | 22 01 22 20 62 65 67 69 |ine-key |"." begi|
|000014b0| 6e 6e 69 6e 67 2d 6f 66 | 2d 6c 69 6e 65 2d 74 65 |nning-of|-line-te|
|000014c0| 78 74 20 22 0d 22 20 72 | 65 69 6e 64 65 6e 74 2d |xt "." r|eindent-|
|000014d0| 74 68 65 6e 2d 6e 65 77 | 6c 69 6e 65 2d 61 6e 64 |then-new|line-and|
|000014e0| 2d 69 6e 64 65 6e 74 20 | 22 5c 6e 22 20 22 ea 22 |-indent |"\n" "."|
|000014f0| 20 66 61 63 65 6d 65 6e | 75 2d 6a 75 73 74 69 66 | facemen|u-justif|
|00001500| 69 63 61 74 69 6f 6e 2d | 6d 65 6e 75 20 22 d3 22 |ication-|menu "."|
|00001510| 20 73 65 74 2d 6a 75 73 | 74 69 66 69 63 61 74 69 | set-jus|tificati|
|00001520| 6f 6e 2d 63 65 6e 74 65 | 72 20 22 18 09 22 20 69 |on-cente|r ".." i|
|00001530| 6e 63 72 65 61 73 65 2d | 6c 65 66 74 2d 6d 61 72 |ncrease-|left-mar|
|00001540| 67 69 6e 20 22 03 0c 22 | 20 73 65 74 2d 6c 65 66 |gin ".."| set-lef|
|00001550| 74 2d 6d 61 72 67 69 6e | 20 22 03 12 22 20 73 65 |t-margin| ".." se|
|00001560| 74 2d 72 69 67 68 74 2d | 6d 61 72 67 69 6e 5d 20 |t-right-|margin] |
|00001570| 34 29 0a 23 40 33 37 38 | 20 41 70 70 6c 79 20 61 |4).#@378| Apply a|
|00001580| 20 66 75 6e 63 74 69 6f | 6e 20 74 6f 20 72 65 67 | functio|n to reg|
|00001590| 69 6f 6e 73 20 6f 66 20 | 74 68 65 20 62 75 66 66 |ions of |the buff|
|000015a0| 65 72 20 62 61 73 65 64 | 20 6f 6e 20 61 20 74 65 |er based| on a te|
|000015b0| 78 74 20 70 72 6f 70 65 | 72 74 79 2e 0a 46 6f 72 |xt prope|rty..For|
|000015c0| 20 65 61 63 68 20 63 6f | 6e 74 69 67 75 6f 75 73 | each co|ntiguous|
|000015d0| 20 72 65 67 69 6f 6e 20 | 6f 66 20 74 68 65 20 62 | region |of the b|
|000015e0| 75 66 66 65 72 20 66 6f | 72 20 77 68 69 63 68 20 |uffer fo|r which |
|000015f0| 74 68 65 20 76 61 6c 75 | 65 20 6f 66 20 50 52 4f |the valu|e of PRO|
|00001600| 50 45 52 54 59 20 69 73 | 0a 65 71 2c 20 74 68 65 |PERTY is|.eq, the|
|00001610| 20 46 55 4e 43 54 49 4f | 4e 20 77 69 6c 6c 20 62 | FUNCTIO|N will b|
|00001620| 65 20 63 61 6c 6c 65 64 | 2e 20 20 4f 70 74 69 6f |e called|.  Optio|
|00001630| 6e 61 6c 20 61 72 67 75 | 6d 65 6e 74 73 20 46 52 |nal argu|ments FR|
|00001640| 4f 4d 20 61 6e 64 20 54 | 4f 20 73 70 65 63 69 66 |OM and T|O specif|
|00001650| 79 20 74 68 65 0a 72 65 | 67 69 6f 6e 20 6f 76 65 |y the.re|gion ove|
|00001660| 72 20 77 68 69 63 68 20 | 74 6f 20 73 63 61 6e 2e |r which |to scan.|
|00001670| 0a 0a 54 68 65 20 73 70 | 65 63 69 66 69 65 64 20 |..The sp|ecified |
|00001680| 66 75 6e 63 74 69 6f 6e | 20 72 65 63 65 69 76 65 |function| receive|
|00001690| 73 20 74 68 72 65 65 20 | 61 72 67 75 6d 65 6e 74 |s three |argument|
|000016a0| 73 3a 20 74 68 65 20 56 | 41 4c 55 45 20 6f 66 20 |s: the V|ALUE of |
|000016b0| 74 68 65 20 70 72 6f 70 | 65 72 74 79 20 69 6e 0a |the prop|erty in.|
|000016c0| 74 68 65 20 72 65 67 69 | 6f 6e 2c 20 61 6e 64 20 |the regi|on, and |
|000016d0| 74 68 65 20 53 54 41 52 | 54 20 61 6e 64 20 45 4e |the STAR|T and EN|
|000016e0| 44 20 6f 66 20 65 61 63 | 68 20 72 65 67 69 6f 6e |D of eac|h region|
|000016f0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 6e |...(defa|lias 'en|
|00001700| 72 69 63 68 65 64 2d 6d | 61 70 2d 70 72 6f 70 65 |riched-m|ap-prope|
|00001710| 72 74 79 2d 72 65 67 69 | 6f 6e 73 20 23 5b 28 70 |rty-regi|ons #[(p|
|00001720| 72 6f 70 20 66 75 6e 63 | 20 26 6f 70 74 69 6f 6e |rop func| &option|
|00001730| 61 6c 20 66 72 6f 6d 20 | 74 6f 29 20 22 8a 8c 08 |al from |to) "...|
|00001740| ab 84 65 08 7d 88 09 ae | 81 65 62 88 60 c2 c3 20 |..e.}...|.eb.`.. |
|00001750| c4 60 0d 5c 22 1e 06 1e | 07 1e 08 1e 09 ca 0e 09 |.`.\"...|........|
|00001760| 64 0d 0e 06 24 89 16 08 | ab a2 0e 07 0e 08 c2 93 |d...$...|........|
|00001770| 88 0e 0b 0e 06 0e 09 cc | 0e 07 21 23 88 cc 0e 07 |........|..!#....|
|00001780| 21 16 09 c4 0e 07 0d 5c | 22 16 06 aa 51 0e 09 64 |!......\|"...Q..d|
|00001790| 57 ad 88 0e 0b 0e 06 0e | 09 64 23 2e 06 87 22 20 |W.......|.d#..." |
|000017a0| 5b 74 6f 20 66 72 6f 6d | 20 6e 69 6c 20 6d 61 6b |[to from| nil mak|
|000017b0| 65 2d 6d 61 72 6b 65 72 | 20 67 65 74 2d 74 65 78 |e-marker| get-tex|
|000017c0| 74 2d 70 72 6f 70 65 72 | 74 79 20 70 72 6f 70 20 |t-proper|ty prop |
|000017d0| 76 61 6c 20 6d 61 72 6b | 65 72 20 65 6e 64 20 62 |val mark|er end b|
|000017e0| 65 67 69 6e 20 74 65 78 | 74 2d 70 72 6f 70 65 72 |egin tex|t-proper|
|000017f0| 74 79 2d 6e 6f 74 2d 61 | 6c 6c 20 66 75 6e 63 20 |ty-not-a|ll func |
|00001800| 6d 61 72 6b 65 72 2d 70 | 6f 73 69 74 69 6f 6e 5d |marker-p|osition]|
|00001810| 20 36 20 28 23 24 20 2e | 20 35 34 39 37 29 5d 29 | 6 (#$ .| 5497)])|
|00001820| 0a 28 70 75 74 20 27 65 | 6e 72 69 63 68 65 64 2d |.(put 'e|nriched-|
|00001830| 6d 61 70 2d 70 72 6f 70 | 65 72 74 79 2d 72 65 67 |map-prop|erty-reg|
|00001840| 69 6f 6e 73 20 27 6c 69 | 73 70 2d 69 6e 64 65 6e |ions 'li|sp-inden|
|00001850| 74 2d 68 6f 6f 6b 20 31 | 29 0a 23 40 34 35 20 49 |t-hook 1|).#@45 I|
|00001860| 6e 64 65 6e 74 20 61 6e | 64 20 6a 75 73 74 69 66 |ndent an|d justif|
|00001870| 79 20 65 61 63 68 20 6c | 69 6e 65 20 69 6e 20 74 |y each l|ine in t|
|00001880| 68 65 20 72 65 67 69 6f | 6e 2e 1f 0a 28 64 65 66 |he regio|n...(def|
|00001890| 61 6c 69 61 73 20 27 65 | 6e 72 69 63 68 65 64 2d |alias 'e|nriched-|
|000018a0| 69 6e 73 65 72 74 2d 69 | 6e 64 65 6e 74 61 74 69 |insert-i|ndentati|
|000018b0| 6f 6e 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |on #[(&o|ptional |
|000018c0| 66 72 6f 6d 20 74 6f 29 | 20 22 8a 8c 08 ab 84 65 |from to)| ".....e|
|000018d0| 08 7d 88 09 ae 81 65 62 | 88 6e ac 83 c2 79 88 6d |.}....eb|.n...y.m|
|000018e0| 3f ad 92 6c ac 8a c3 20 | 6a 88 c4 c5 c6 c5 23 88 |?..l... |j.....#.|
|000018f0| c2 79 88 aa 6a 2a 87 22 | 20 5b 74 6f 20 66 72 6f |.y..j*."| [to fro|
|00001900| 6d 20 31 20 63 75 72 72 | 65 6e 74 2d 6c 65 66 74 |m 1 curr|ent-left|
|00001910| 2d 6d 61 72 67 69 6e 20 | 6a 75 73 74 69 66 79 2d |-margin |justify-|
|00001920| 63 75 72 72 65 6e 74 2d | 6c 69 6e 65 20 74 20 6e |current-|line t n|
|00001930| 69 6c 5d 20 34 20 28 23 | 24 20 2e 20 36 32 33 39 |il] 4 (#|$ . 6239|
|00001940| 29 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 65 |)]).(def|alias 'e|
|00001950| 6e 72 69 63 68 65 64 2d | 65 6e 63 6f 64 65 20 23 |nriched-|encode #|
|00001960| 5b 28 66 72 6f 6d 20 74 | 6f 20 26 6f 70 74 69 6f |[(from t|o &optio|
|00001970| 6e 61 6c 20 6f 72 69 67 | 2d 62 75 66 29 20 22 08 |nal orig|-buf) ".|
|00001980| ab 84 c1 c2 21 88 8c 0b | 0c 7d 88 c5 20 88 c6 20 |....!...|.}.. .. |
|00001990| 88 0b 62 88 c7 c8 21 88 | c9 ca 0b 64 0e 0b cc 0e |..b...!.|...d....|
|000019a0| 0d 25 21 88 0b 62 88 0e | 0e 3b ab 84 0e 0e aa 8d |.%!..b..|.;......|
|000019b0| 8a 0e 0f ab 84 0e 0f 71 | 88 0e 0e 20 29 63 88 d0 |.......q|... )c..|
|000019c0| d1 d2 60 d3 24 88 08 ab | 84 c1 d3 21 88 64 29 87 |..`.$...|...!.d).|
|000019d0| 22 20 5b 65 6e 72 69 63 | 68 65 64 2d 76 65 72 62 |" [enric|hed-verb|
|000019e0| 6f 73 65 20 6d 65 73 73 | 61 67 65 20 22 45 6e 72 |ose mess|age "Enr|
|000019f0| 69 63 68 65 64 3a 20 65 | 6e 63 6f 64 69 6e 67 20 |iched: e|ncoding |
|00001a00| 64 6f 63 75 6d 65 6e 74 | 2e 2e 2e 22 20 66 72 6f |document|..." fro|
|00001a10| 6d 20 74 6f 20 64 65 6c | 65 74 65 2d 74 6f 2d 6c |m to del|ete-to-l|
|00001a20| 65 66 74 2d 6d 61 72 67 | 69 6e 20 75 6e 6a 75 73 |eft-marg|in unjus|
|00001a30| 74 69 66 79 2d 72 65 67 | 69 6f 6e 20 66 6f 72 6d |tify-reg|ion form|
|00001a40| 61 74 2d 72 65 70 6c 61 | 63 65 2d 73 74 72 69 6e |at-repla|ce-strin|
|00001a50| 67 73 20 28 28 22 3c 22 | 20 2e 20 22 3c 3c 22 29 |gs (("<"| . "<<")|
|00001a60| 29 20 66 6f 72 6d 61 74 | 2d 69 6e 73 65 72 74 2d |) format|-insert-|
|00001a70| 61 6e 6e 6f 74 61 74 69 | 6f 6e 73 20 66 6f 72 6d |annotati|ons form|
|00001a80| 61 74 2d 61 6e 6e 6f 74 | 61 74 65 2d 72 65 67 69 |at-annot|ate-regi|
|00001a90| 6f 6e 20 65 6e 72 69 63 | 68 65 64 2d 74 72 61 6e |on enric|hed-tran|
|00001aa0| 73 6c 61 74 69 6f 6e 73 | 20 65 6e 72 69 63 68 65 |slations| enriche|
|00001ab0| 64 2d 6d 61 6b 65 2d 61 | 6e 6e 6f 74 61 74 69 6f |d-make-a|nnotatio|
|00001ac0| 6e 20 65 6e 72 69 63 68 | 65 64 2d 69 67 6e 6f 72 |n enrich|ed-ignor|
|00001ad0| 65 20 65 6e 72 69 63 68 | 65 64 2d 69 6e 69 74 69 |e enrich|ed-initi|
|00001ae0| 61 6c 2d 61 6e 6e 6f 74 | 61 74 69 6f 6e 20 6f 72 |al-annot|ation or|
|00001af0| 69 67 2d 62 75 66 20 65 | 6e 72 69 63 68 65 64 2d |ig-buf e|nriched-|
|00001b00| 6d 61 70 2d 70 72 6f 70 | 65 72 74 79 2d 72 65 67 |map-prop|erty-reg|
|00001b10| 69 6f 6e 73 20 68 61 72 | 64 20 23 5b 28 76 20 62 |ions har|d #[(v b|
|00001b20| 20 65 29 20 22 08 ad 8b | 09 66 c2 55 ad 85 09 62 | e) "...|.f.U...b|
|00001b30| 88 c3 63 87 22 20 5b 76 | 20 62 20 3f 5c 6e 20 22 |..c." [v| b ?\n "|
|00001b40| 5c 6e 22 5d 20 32 5d 20 | 6e 69 6c 5d 20 37 5d 29 |\n"] 2] |nil] 7])|
|00001b50| 0a 23 40 31 32 37 20 46 | 6f 72 6d 61 74 20 61 6e |.#@127 F|ormat an|
|00001b60| 20 61 6e 6e 6f 74 61 74 | 69 6f 6e 20 63 61 6c 6c | annotat|ion call|
|00001b70| 65 64 20 4e 41 4d 45 2e | 0a 49 66 20 50 4f 53 49 |ed NAME.|.If POSI|
|00001b80| 54 49 56 45 20 69 73 20 | 6e 6f 6e 2d 6e 69 6c 2c |TIVE is |non-nil,|
|00001b90| 20 74 68 69 73 20 69 73 | 20 74 68 65 20 6f 70 65 | this is| the ope|
|00001ba0| 6e 69 6e 67 20 61 6e 6e | 6f 74 61 74 69 6f 6e 2c |ning ann|otation,|
|00001bb0| 20 69 66 20 6e 69 6c 2c | 20 74 68 69 73 20 69 73 | if nil,| this is|
|00001bc0| 20 74 68 65 0a 6d 61 74 | 63 68 69 6e 67 20 63 6c | the.mat|ching cl|
|00001bd0| 6f 73 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ose...(d|efalias |
|00001be0| 27 65 6e 72 69 63 68 65 | 64 2d 6d 61 6b 65 2d 61 |'enriche|d-make-a|
|00001bf0| 6e 6e 6f 74 61 74 69 6f | 6e 20 23 5b 28 6e 61 6d |nnotatio|n #[(nam|
|00001c00| 65 20 70 6f 73 69 74 69 | 76 65 29 20 22 08 3b ab |e positi|ve) ".;.|
|00001c10| 8c c1 5c 6e 0b ab 83 c4 | aa 81 c5 08 23 87 0b ab |..\n....|....#...|
|00001c20| 97 08 40 08 41 1e 06 1e | 07 c1 5c 6e c4 0e 07 23 |..@.A...|..\n...#|
|00001c30| c8 c9 0e 06 c4 23 50 2a | 87 c1 5c 6e c5 08 40 23 |.....#P*|..\n..@#|
|00001c40| 87 22 20 5b 6e 61 6d 65 | 20 66 6f 72 6d 61 74 20 |." [name| format |
|00001c50| 65 6e 72 69 63 68 65 64 | 2d 61 6e 6e 6f 74 61 74 |enriched|-annotat|
|00001c60| 69 6f 6e 2d 66 6f 72 6d | 61 74 20 70 6f 73 69 74 |ion-form|at posit|
|00001c70| 69 76 65 20 22 22 20 22 | 2f 22 20 70 61 72 61 6d |ive "" "|/" param|
|00001c80| 73 20 69 74 65 6d 20 6d | 61 70 63 6f 6e 63 61 74 |s item m|apconcat|
|00001c90| 20 23 5b 28 69 29 20 22 | c0 09 c2 51 87 22 20 5b | #[(i) "|...Q." [|
|00001ca0| 22 3c 70 61 72 61 6d 3e | 22 20 69 20 22 3c 2f 70 |"<param>|" i "</p|
|00001cb0| 61 72 61 6d 3e 22 5d 20 | 33 5d 5d 20 35 20 28 23 |aram>"] |3]] 5 (#|
|00001cc0| 24 20 2e 20 36 39 39 39 | 29 5d 29 0a 23 40 31 31 |$ . 6999|)]).#@11|
|00001cd0| 34 20 43 72 65 61 74 65 | 20 61 20 73 79 6d 62 6f |4 Create| a symbo|
|00001ce0| 6c 20 66 72 6f 6d 20 74 | 68 65 20 6e 61 6d 65 20 |l from t|he name |
|00001cf0| 6f 66 20 46 41 43 45 20 | 64 65 76 6f 69 64 20 6f |of FACE |devoid o|
|00001d00| 66 20 73 69 7a 65 20 69 | 6e 66 6f 72 6d 61 74 69 |f size i|nformati|
|00001d10| 6f 6e 2c 0a 69 2e 65 2e | 20 72 65 6d 6f 76 65 20 |on,.i.e.| remove |
|00001d20| 61 6c 6c 20 6c 61 72 67 | 65 72 2d 20 61 6e 64 20 |all larg|er- and |
|00001d30| 73 6d 61 6c 6c 65 72 2d | 20 70 72 65 66 69 78 65 |smaller-| prefixe|
|00001d40| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 65 |s...(def|alias 'e|
|00001d50| 6e 72 69 63 68 65 64 2d | 66 61 63 65 2d 73 74 72 |nriched-|face-str|
|00001d60| 69 70 2d 73 69 7a 65 20 | 23 5b 28 66 61 63 65 29 |ip-size |#[(face)|
|00001d70| 20 22 c0 09 21 1a c3 5c | 6e 21 89 18 1c c5 1e 06 | "..!..\|n!......|
|00001d80| 0c c7 0c c8 c9 23 89 16 | 06 98 ac 86 0e 06 89 14 |.....#..|........|
|00001d90| aa 6f 0c c7 0c ca c9 23 | 89 16 06 98 ac 86 0e 06 |.o.....#|........|
|00001da0| 89 14 aa 6f 0e 06 08 98 | ab 83 5c 6e aa 84 cb 0e |...o....|..\n....|
|00001db0| 06 21 2c 87 22 20 5b 66 | 61 63 65 2d 6e 61 6d 65 |.!,." [f|ace-name|
|00001dc0| 20 66 61 63 65 20 66 61 | 63 65 2d 73 79 6d 62 6f | face fa|ce-symbo|
|00001dd0| 6c 20 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 6f 6c |l symbol|-name ol|
|00001de0| 64 2d 6e 61 6d 65 20 6e | 69 6c 20 6e 65 77 2d 6e |d-name n|il new-n|
|00001df0| 61 6d 65 20 72 65 70 6c | 61 63 65 2d 69 6e 2d 73 |ame repl|ace-in-s|
|00001e00| 74 72 69 6e 67 20 22 5e | 6c 61 72 67 65 72 2d 22 |tring "^|larger-"|
|00001e10| 20 22 22 20 22 5e 73 6d | 61 6c 6c 65 72 2d 22 20 | "" "^sm|aller-" |
|00001e20| 69 6e 74 65 72 6e 5d 20 | 36 20 28 23 24 20 2e 20 |intern] |6 (#$ . |
|00001e30| 37 33 37 38 29 5d 29 0a | 23 40 31 31 39 20 47 65 |7378)]).|#@119 Ge|
|00001e40| 6e 65 72 61 74 65 20 61 | 6e 6e 6f 74 61 74 69 6f |nerate a|nnotatio|
|00001e50| 6e 73 20 66 6f 72 20 72 | 61 6e 64 6f 6d 20 66 61 |ns for r|andom fa|
|00001e60| 63 65 20 63 68 61 6e 67 | 65 2e 0a 4f 6e 65 20 61 |ce chang|e..One a|
|00001e70| 6e 6e 6f 74 61 74 69 6f | 6e 20 65 61 63 68 20 66 |nnotatio|n each f|
|00001e80| 6f 72 20 66 6f 72 65 67 | 72 6f 75 6e 64 20 63 6f |or foreg|round co|
|00001e90| 6c 6f 72 2c 20 62 61 63 | 6b 67 72 6f 75 6e 64 20 |lor, bac|kground |
|00001ea0| 63 6f 6c 6f 72 2c 20 69 | 74 61 6c 69 63 2c 20 65 |color, i|talic, e|
|00001eb0| 74 63 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |tc...(de|falias '|
|00001ec0| 65 6e 72 69 63 68 65 64 | 2d 65 6e 63 6f 64 65 2d |enriched|-encode-|
|00001ed0| 6f 74 68 65 72 2d 66 61 | 63 65 20 23 5b 28 6f 6c |other-fa|ce #[(ol|
|00001ee0| 64 20 6e 65 77 29 20 22 | 08 ad 83 c1 08 21 5c 6e |d new) "|.....!\n|
|00001ef0| ad 83 c1 5c 6e 21 42 87 | 22 20 5b 6f 6c 64 20 65 |...\n!B.|" [old e|
|00001f00| 6e 72 69 63 68 65 64 2d | 66 61 63 65 2d 61 6e 73 |nriched-|face-ans|
|00001f10| 20 6e 65 77 5d 20 33 20 | 28 23 24 20 2e 20 37 37 | new] 3 |(#$ . 77|
|00001f20| 34 32 29 5d 29 0a 23 40 | 33 37 20 52 65 74 75 72 |42)]).#@|37 Retur|
|00001f30| 6e 20 61 6e 6e 6f 74 61 | 74 69 6f 6e 73 20 73 70 |n annota|tions sp|
|00001f40| 65 63 69 66 79 69 6e 67 | 20 46 41 43 45 2e 1f 0a |ecifying| FACE...|
|00001f50| 28 64 65 66 61 6c 69 61 | 73 20 27 65 6e 72 69 63 |(defalia|s 'enric|
|00001f60| 68 65 64 2d 66 61 63 65 | 2d 61 6e 73 20 23 5b 28 |hed-face|-ans #[(|
|00001f70| 66 61 63 65 29 20 22 c0 | 09 21 1a c3 c4 5c 6e 5c |face) ".|.!...\n\|
|00001f80| 22 ab 89 c5 5c 6e c6 c7 | 4f 44 43 aa e9 c3 c8 5c |"...\n..|ODC....\|
|00001f90| 6e 5c 22 ab 89 c9 5c 6e | c6 c7 4f 44 43 aa da c3 |n\"...\n|..ODC...|
|00001fa0| ca 5c 6e 5c 22 ac 86 c3 | cb 5c 6e 5c 22 ab 8c cc |.\n\"...|.\n\"...|
|00001fb0| c1 c7 cd 09 21 0e 0e 24 | 41 aa c2 cf 09 21 cf d0 |....!..$|A....!..|
|00001fc0| 21 61 3f ad 85 d1 cf 09 | 21 21 1e 12 d3 09 21 d3 |!a?.....|!!....!.|
|00001fd0| d0 21 61 3f ad 85 d1 d3 | 09 21 21 1e 14 c7 1e 15 |.!a?....|.!!.....|
|00001fe0| 0e 12 ab 89 c5 0e 12 44 | 0e 15 42 16 15 0e 14 ab |.......D|..B.....|
|00001ff0| 89 c9 0e 14 44 0e 15 42 | 16 15 0e 15 2b 29 87 22 |....D..B|....+)."|
|00002000| 20 5b 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 66 61 | [symbol|-name fa|
|00002010| 63 65 20 66 61 63 65 2d | 6e 61 6d 65 20 73 74 72 |ce face-|name str|
|00002020| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5e 66 67 3a 22 |ing-matc|h "^fg:"|
|00002030| 20 22 78 2d 63 6f 6c 6f | 72 22 20 33 20 6e 69 6c | "x-colo|r" 3 nil|
|00002040| 20 22 5e 62 67 3a 22 20 | 22 78 2d 62 67 2d 63 6f | "^bg:" |"x-bg-co|
|00002050| 6c 6f 72 22 20 22 5e 6c | 61 72 67 65 72 2d 22 20 |lor" "^l|arger-" |
|00002060| 22 5e 73 6d 61 6c 6c 65 | 72 2d 22 20 66 6f 72 6d |"^smalle|r-" form|
|00002070| 61 74 2d 61 6e 6e 6f 74 | 61 74 65 2d 73 69 6e 67 |at-annot|ate-sing|
|00002080| 6c 65 2d 70 72 6f 70 65 | 72 74 79 2d 63 68 61 6e |le-prope|rty-chan|
|00002090| 67 65 20 65 6e 72 69 63 | 68 65 64 2d 66 61 63 65 |ge enric|hed-face|
|000020a0| 2d 73 74 72 69 70 2d 73 | 69 7a 65 20 65 6e 72 69 |-strip-s|ize enri|
|000020b0| 63 68 65 64 2d 74 72 61 | 6e 73 6c 61 74 69 6f 6e |ched-tra|nslation|
|000020c0| 73 20 66 61 63 65 2d 66 | 6f 72 65 67 72 6f 75 6e |s face-f|oregroun|
|000020d0| 64 20 64 65 66 61 75 6c | 74 20 63 6f 6c 6f 72 2d |d defaul|t color-|
|000020e0| 6e 61 6d 65 20 66 67 20 | 66 61 63 65 2d 62 61 63 |name fg |face-bac|
|000020f0| 6b 67 72 6f 75 6e 64 20 | 62 67 20 61 6e 73 5d 20 |kground |bg ans] |
|00002100| 35 20 28 23 24 20 2e 20 | 37 39 37 39 29 5d 29 0a |5 (#$ . |7979)]).|
|00002110| 23 40 33 30 20 47 65 6e | 65 72 61 74 65 20 41 4e |#@30 Gen|erate AN|
|00002120| 4e 4f 54 41 54 49 4f 4e | 20 4e 20 74 69 6d 65 73 |NOTATION| N times|
|00002130| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 6e |...(defa|lias 'en|
|00002140| 72 69 63 68 65 64 2d 73 | 69 7a 65 2d 61 6e 6e 6f |riched-s|ize-anno|
|00002150| 74 61 74 69 6f 6e 20 23 | 5b 28 6e 20 61 6e 6e 6f |tation #|[(n anno|
|00002160| 74 61 74 69 6f 6e 29 20 | 22 c0 19 5c 6e c3 55 ac |tation) |"..\n.U.|
|00002170| 8a 0c 09 42 11 5c 6e 53 | 89 12 aa 72 09 29 87 22 |...B.\nS|...r.)."|
|00002180| 20 5b 6e 69 6c 20 6c 20 | 6e 20 30 20 61 6e 6e 6f | [nil l |n 0 anno|
|00002190| 74 61 74 69 6f 6e 5d 20 | 33 20 28 23 24 20 2e 20 |tation] |3 (#$ . |
|000021a0| 38 34 36 39 29 5d 29 0a | 23 40 33 37 20 52 65 74 |8469)]).|#@37 Ret|
|000021b0| 75 72 6e 20 61 6e 6e 6f | 74 61 74 69 6f 6e 73 20 |urn anno|tations |
|000021c0| 73 70 65 63 69 66 79 69 | 6e 67 20 53 49 5a 45 2e |specifyi|ng SIZE.|
|000021d0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 6e 72 |..(defal|ias 'enr|
|000021e0| 69 63 68 65 64 2d 65 6e | 63 6f 64 65 2d 73 69 7a |iched-en|code-siz|
|000021f0| 65 20 23 5b 28 6f 6c 64 | 20 6e 65 77 29 20 22 08 |e #[(old| new) ".|
|00002200| ae 81 c1 18 5c 6e ae 81 | c1 1a c3 c4 08 21 08 c1 |....\n..|.....!..|
|00002210| 56 ab 83 c5 aa 81 c6 5c | 22 1e 07 c3 c4 5c 6e 21 |V......\|"....\n!|
|00002220| 5c 6e c1 56 ab 83 c5 aa | 81 c6 5c 22 1e 08 0e 07 |\n.V....|..\"....|
|00002230| 0e 08 2c 42 87 22 20 5b | 6f 6c 64 20 30 20 6e 65 |..,B." [|old 0 ne|
|00002240| 77 20 65 6e 72 69 63 68 | 65 64 2d 73 69 7a 65 2d |w enrich|ed-size-|
|00002250| 61 6e 6e 6f 74 61 74 69 | 6f 6e 20 61 62 73 20 22 |annotati|on abs "|
|00002260| 62 69 67 67 65 72 22 20 | 22 73 6d 61 6c 6c 65 72 |bigger" |"smaller|
|00002270| 22 20 63 6c 6f 73 69 6e | 67 2d 61 6e 6e 6f 74 61 |" closin|g-annota|
|00002280| 74 69 6f 6e 20 6f 70 65 | 6e 69 6e 67 2d 61 6e 6e |tion ope|ning-ann|
|00002290| 6f 74 61 74 69 6f 6e 5d | 20 34 20 28 23 24 20 2e |otation]| 4 (#$ .|
|000022a0| 20 38 36 32 31 29 5d 29 | 0a 28 64 65 66 61 6c 69 | 8621)])|.(defali|
|000022b0| 61 73 20 27 65 6e 72 69 | 63 68 65 64 2d 64 65 63 |as 'enri|ched-dec|
|000022c0| 6f 64 65 20 23 5b 28 66 | 72 6f 6d 20 74 6f 29 20 |ode #[(f|rom to) |
|000022d0| 22 08 ab 84 c1 c2 21 88 | c3 c4 c5 5c 22 88 8a 8c |".....!.|...\"...|
|000022e0| 0e 06 0e 07 7d 88 0e 06 | 62 88 c8 20 1e 09 ca 20 |....}...|b.. ... |
|000022f0| 88 cb cc cd ce 23 ab 90 | cf 20 ab 84 d0 d1 21 88 |.....#..|. ....!.|
|00002300| d2 d3 94 60 5c 22 88 aa | 69 d4 0e 06 64 0e 15 d6 |...`\"..|i...d...|
|00002310| 24 88 0e 09 ab 90 0e 09 | 16 17 08 ab 84 c1 d8 21 |$.......|.......!|
|00002320| 88 d9 20 88 aa 8c 08 ab | 84 c1 da 21 88 db 65 64 |.. .....|...!..ed|
|00002330| 5c 22 88 08 ab 84 c1 cd | 21 88 29 64 2a 87 22 20 |\"......|!.)d*." |
|00002340| 5b 65 6e 72 69 63 68 65 | 64 2d 76 65 72 62 6f 73 |[enriche|d-verbos|
|00002350| 65 20 6d 65 73 73 61 67 | 65 20 22 45 6e 72 69 63 |e messag|e "Enric|
|00002360| 68 65 64 3a 20 64 65 63 | 6f 64 69 6e 67 20 64 6f |hed: dec|oding do|
|00002370| 63 75 6d 65 6e 74 2e 2e | 2e 22 20 75 73 65 2d 68 |cument..|." use-h|
|00002380| 61 72 64 2d 6e 65 77 6c | 69 6e 65 73 20 31 20 6e |ard-newl|ines 1 n|
|00002390| 65 76 65 72 20 66 72 6f | 6d 20 74 6f 20 65 6e 72 |ever fro|m to enr|
|000023a0| 69 63 68 65 64 2d 67 65 | 74 2d 66 69 6c 65 2d 77 |iched-ge|t-file-w|
|000023b0| 69 64 74 68 20 66 69 6c | 65 2d 77 69 64 74 68 20 |idth fil|e-width |
|000023c0| 65 6e 72 69 63 68 65 64 | 2d 72 65 6d 6f 76 65 2d |enriched|-remove-|
|000023d0| 68 65 61 64 65 72 20 73 | 65 61 72 63 68 2d 66 6f |header s|earch-fo|
|000023e0| 72 77 61 72 64 2d 72 65 | 67 65 78 70 20 22 5c 6e |rward-re|gexp "\n|
|000023f0| 5c 6e 2b 22 20 6e 69 6c | 20 74 20 63 75 72 72 65 |\n+" nil| t curre|
|00002400| 6e 74 2d 6a 75 73 74 69 | 66 69 63 61 74 69 6f 6e |nt-justi|fication|
|00002410| 20 64 65 6c 65 74 65 2d | 63 68 61 72 20 2d 31 20 | delete-|char -1 |
|00002420| 73 65 74 2d 68 61 72 64 | 2d 6e 65 77 6c 69 6e 65 |set-hard|-newline|
|00002430| 2d 70 72 6f 70 65 72 74 | 69 65 73 20 30 20 66 6f |-propert|ies 0 fo|
|00002440| 72 6d 61 74 2d 64 65 61 | 6e 6e 6f 74 61 74 65 2d |rmat-dea|nnotate-|
|00002450| 72 65 67 69 6f 6e 20 65 | 6e 72 69 63 68 65 64 2d |region e|nriched-|
|00002460| 74 72 61 6e 73 6c 61 74 | 69 6f 6e 73 20 65 6e 72 |translat|ions enr|
|00002470| 69 63 68 65 64 2d 6e 65 | 78 74 2d 61 6e 6e 6f 74 |iched-ne|xt-annot|
|00002480| 61 74 69 6f 6e 20 66 69 | 6c 6c 2d 63 6f 6c 75 6d |ation fi|ll-colum|
|00002490| 6e 20 22 49 6e 64 65 6e | 74 69 6e 67 2e 2e 2e 22 |n "Inden|ting..."|
|000024a0| 20 65 6e 72 69 63 68 65 | 64 2d 69 6e 73 65 72 74 | enriche|d-insert|
|000024b0| 2d 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 22 46 69 |-indenta|tion "Fi|
|000024c0| 6c 6c 69 6e 67 20 70 61 | 72 61 67 72 61 70 68 73 |lling pa|ragraphs|
|000024d0| 2e 2e 2e 22 20 66 69 6c | 6c 2d 72 65 67 69 6f 6e |..." fil|l-region|
|000024e0| 5d 20 35 5d 29 0a 23 40 | 31 37 30 20 46 69 6e 64 |] 5]).#@|170 Find|
|000024f0| 20 61 6e 64 20 72 65 74 | 75 72 6e 20 6e 65 78 74 | and ret|urn next|
|00002500| 20 74 65 78 74 2f 65 6e | 72 69 63 68 65 64 20 61 | text/en|riched a|
|00002510| 6e 6e 6f 74 61 74 69 6f | 6e 2e 0a 41 6e 79 20 22 |nnotatio|n..Any "|
|00002520| 3c 3c 22 20 73 74 72 69 | 6e 67 73 20 65 6e 63 6f |<<" stri|ngs enco|
|00002530| 75 6e 74 65 72 65 64 20 | 61 72 65 20 63 6f 6e 76 |untered |are conv|
|00002540| 65 72 74 65 64 20 74 6f | 20 22 3c 22 2e 0a 52 65 |erted to| "<"..Re|
|00002550| 74 75 72 6e 20 76 61 6c | 75 65 20 69 73 20 28 62 |turn val|ue is (b|
|00002560| 65 67 69 6e 20 65 6e 64 | 20 6e 61 6d 65 20 70 6f |egin end| name po|
|00002570| 73 69 74 69 76 65 2d 70 | 29 2c 20 6f 72 20 6e 69 |sitive-p|), or ni|
|00002580| 6c 20 69 66 20 6e 6f 6e | 65 20 77 61 73 20 66 6f |l if non|e was fo|
|00002590| 75 6e 64 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |und...(d|efalias |
|000025a0| 27 65 6e 72 69 63 68 65 | 64 2d 6e 65 78 74 2d 61 |'enriche|d-next-a|
|000025b0| 6e 6e 6f 74 61 74 69 6f | 6e 20 23 5b 6e 69 6c 20 |nnotatio|n #[nil |
|000025c0| 22 c0 c1 c2 c3 23 ab a1 | c4 94 62 88 c5 0e 06 21 |"....#..|..b....!|
|000025d0| ac 97 c3 75 88 60 66 c7 | 55 ab 86 c8 c3 21 88 aa |...u.`f.|U....!..|
|000025e0| 60 c9 ca 60 53 5c 22 88 | aa 58 6d 3f ad 9f c4 94 |`..`S\".|.Xm?....|
|000025f0| 1e 0b c4 95 1e 0c cd 94 | cd 95 7b 97 1e 0e c3 94 |........|..{.....|
|00002600| 3f 1e 0f 0e 0b 0e 0c 0e | 0e 0e 0f 46 2c 87 22 20 |?.......|...F,." |
|00002610| 5b 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |[search-|forward |
|00002620| 22 3c 22 20 6e 69 6c 20 | 31 20 30 20 6c 6f 6f 6b |"<" nil |1 0 look|
|00002630| 69 6e 67 2d 61 74 20 65 | 6e 72 69 63 68 65 64 2d |ing-at e|nriched-|
|00002640| 61 6e 6e 6f 74 61 74 69 | 6f 6e 2d 72 65 67 65 78 |annotati|on-regex|
|00002650| 70 20 3f 5c 3c 20 64 65 | 6c 65 74 65 2d 63 68 61 |p ?\< de|lete-cha|
|00002660| 72 20 6d 65 73 73 61 67 | 65 20 22 57 61 72 6e 69 |r messag|e "Warni|
|00002670| 6e 67 3a 20 6d 61 6c 66 | 6f 72 6d 65 64 20 61 6e |ng: malf|ormed an|
|00002680| 6e 6f 74 61 74 69 6f 6e | 20 69 6e 20 66 69 6c 65 |notation| in file|
|00002690| 20 61 74 20 25 73 22 20 | 62 65 67 20 65 6e 64 20 | at %s" |beg end |
|000026a0| 32 20 6e 61 6d 65 20 70 | 6f 73 5d 20 34 20 28 23 |2 name p|os] 4 (#|
|000026b0| 24 20 2e 20 39 34 35 32 | 29 5d 29 0a 23 40 34 37 |$ . 9452|)]).#@47|
|000026c0| 20 4c 6f 6f 6b 20 66 6f | 72 20 66 69 6c 65 20 77 | Look fo|r file w|
|000026d0| 69 64 74 68 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |idth inf|ormation|
|000026e0| 20 6f 6e 20 74 68 69 73 | 20 6c 69 6e 65 2e 1f 0a | on this| line...|
|000026f0| 28 64 65 66 61 6c 69 61 | 73 20 27 65 6e 72 69 63 |(defalia|s 'enric|
|00002700| 68 65 64 2d 67 65 74 2d | 66 69 6c 65 2d 77 69 64 |hed-get-|file-wid|
|00002710| 74 68 20 23 5b 6e 69 6c | 20 22 8a c0 c1 60 c2 5c |th #[nil| "...`.\|
|00002720| 5c c3 23 ad 83 c4 70 21 | 29 87 22 20 5b 73 65 61 |\.#...p!|)." [sea|
|00002730| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 54 65 78 |rch-forw|ard "Tex|
|00002740| 74 2d 57 69 64 74 68 3a | 20 22 20 31 30 30 30 20 |t-Width:| " 1000 |
|00002750| 74 20 72 65 61 64 5d 20 | 34 20 28 23 24 20 2e 20 |t read] |4 (#$ . |
|00002760| 39 39 32 31 29 5d 29 0a | 23 40 33 37 20 52 65 6d |9921)]).|#@37 Rem|
|00002770| 6f 76 65 20 66 69 6c 65 | 2d 66 6f 72 6d 61 74 20 |ove file|-format |
|00002780| 68 65 61 64 65 72 20 61 | 74 20 70 6f 69 6e 74 2e |header a|t point.|
|00002790| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 6e 72 |..(defal|ias 'enr|
|000027a0| 69 63 68 65 64 2d 72 65 | 6d 6f 76 65 2d 68 65 61 |iched-re|move-hea|
|000027b0| 64 65 72 20 23 5b 6e 69 | 6c 20 22 c0 c1 21 ab 87 |der #[ni|l "..!..|
|000027c0| 60 c2 95 7c 88 aa 74 c0 | c3 21 ad 83 c4 c5 21 87 |`..|..t.|.!....!.|
|000027d0| 22 20 5b 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 5e |" [looki|ng-at "^|
|000027e0| 5b 2d 41 2d 5a 61 2d 7a | 5d 2b 3a 20 2e 2a 5c 6e |[-A-Za-z|]+: .*\n|
|000027f0| 22 20 30 20 22 5e 5c 6e | 22 20 64 65 6c 65 74 65 |" 0 "^\n|" delete|
|00002800| 2d 63 68 61 72 20 31 5d | 20 32 20 28 23 24 20 2e |-char 1]| 2 (#$ .|
|00002810| 20 31 30 30 39 33 29 5d | 29 0a 28 64 65 66 61 6c | 10093)]|).(defal|
|00002820| 69 61 73 20 27 65 6e 72 | 69 63 68 65 64 2d 64 65 |ias 'enr|iched-de|
|00002830| 63 6f 64 65 2d 66 6f 72 | 65 67 72 6f 75 6e 64 20 |code-for|eground |
|00002840| 23 5b 28 66 72 6f 6d 20 | 74 6f 20 26 6f 70 74 69 |#[(from |to &opti|
|00002850| 6f 6e 61 6c 20 63 6f 6c | 6f 72 29 20 22 c0 c1 c2 |onal col|or) "...|
|00002860| 0b 50 21 21 89 1c ac 89 | c5 0c 21 88 c6 c7 0b 5c |.P!!....|..!....\|
|00002870| 22 88 0e 08 0e 09 c4 0c | 46 29 87 22 20 5b 66 61 |".......|F)." [fa|
|00002880| 63 65 6d 65 6e 75 2d 67 | 65 74 2d 66 61 63 65 20 |cemenu-g|et-face |
|00002890| 69 6e 74 65 72 6e 20 22 | 66 67 3a 22 20 63 6f 6c |intern "|fg:" col|
|000028a0| 6f 72 20 66 61 63 65 20 | 6d 61 6b 65 2d 66 61 63 |or face |make-fac|
|000028b0| 65 20 6d 65 73 73 61 67 | 65 20 22 57 61 72 6e 69 |e messag|e "Warni|
|000028c0| 6e 67 3a 20 43 6f 6c 6f | 72 20 5c 22 25 73 5c 22 |ng: Colo|r \"%s\"|
|000028d0| 20 63 61 6e 27 74 20 62 | 65 20 64 69 73 70 6c 61 | can't b|e displa|
|000028e0| 79 65 64 2e 22 20 66 72 | 6f 6d 20 74 6f 5d 20 35 |yed." fr|om to] 5|
|000028f0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 6e |]).(defa|lias 'en|
|00002900| 72 69 63 68 65 64 2d 64 | 65 63 6f 64 65 2d 62 61 |riched-d|ecode-ba|
|00002910| 63 6b 67 72 6f 75 6e 64 | 20 23 5b 28 66 72 6f 6d |ckground| #[(from|
|00002920| 20 74 6f 20 26 6f 70 74 | 69 6f 6e 61 6c 20 63 6f | to &opt|ional co|
|00002930| 6c 6f 72 29 20 22 c0 c1 | c2 0b 50 21 21 89 1c ac |lor) "..|..P!!...|
|00002940| 89 c5 0c 21 88 c6 c7 0b | 5c 22 88 0e 08 0e 09 c4 |...!....|\"......|
|00002950| 0c 46 29 87 22 20 5b 66 | 61 63 65 6d 65 6e 75 2d |.F)." [f|acemenu-|
|00002960| 67 65 74 2d 66 61 63 65 | 20 69 6e 74 65 72 6e 20 |get-face| intern |
|00002970| 22 62 67 3a 22 20 63 6f | 6c 6f 72 20 66 61 63 65 |"bg:" co|lor face|
|00002980| 20 6d 61 6b 65 2d 66 61 | 63 65 20 6d 65 73 73 61 | make-fa|ce messa|
|00002990| 67 65 20 22 57 61 72 6e | 69 6e 67 3a 20 43 6f 6c |ge "Warn|ing: Col|
|000029a0| 6f 72 20 5c 22 25 73 5c | 22 20 63 61 6e 27 74 20 |or \"%s\|" can't |
|000029b0| 62 65 20 64 69 73 70 6c | 61 79 65 64 2e 22 20 66 |be displ|ayed." f|
|000029c0| 72 6f 6d 20 74 6f 5d 20 | 35 5d 29 0a             |rom to] |5]).    |
+--------+-------------------------+-------------------------+--------+--------+